'
'    This example just demonstrates some of the different values 
'    you can find using this command. 
'       NB: If you want to use the GetValue command to return
'           an object, you need to use the 'Set' keyword for VBScript
'
rtn = GetValue("Camera.aspect")
LogMessage TypeName(rtn)                                ' returns Double
rtn = GetValue("Camera.kine.posz", 25)
LogMessage TypeName(rtn)                                ' returns Boolean
rtn = GetValue("light.Name")
LogMessage TypeName(rtn)                                ' returns String
' GetValue() on an object just returns the object:
set rtn = GetValue("Layers.Layer_Default")
LogMessage TypeName(rtn)                                ' returns Layer
' You can also convert the selection list to the selection object
set rtn = GetValue("SelectionList")
LogMessage TypeName(rtn)                                ' returns Object (= collection)
LogMessage rtn.Type                                     ' returns XSICollection
LogMessage TypeName(rtn(0))                             ' returns X3DObject

/*
This example demonstrates how you can get and set parameter values
using one of the following:
(1) GetValue or SetValue scripting commands
(2) the Parameter object (long version)
(3) a shortcut to the Parameter object
*/
NewScene( null, false);
// First start by getting an object pointer to the sphere, which we will
// use with the object model versions
ActiveSceneRoot.AddGeometry( "sphere", "meshsurface" );
var oSphere = ActiveSceneRoot.FindChild( "Sphere" );
// (1) Change the sphere's posx value using commands:
dblX = GetValue( "sphere.kine.local.pos.posx" );
dblX = dblX - 1.25;
SetValue( "sphere.kine.local.pos.posx", dblX );
// (2) Restore the value but this time use the OM (long way)
dblX = oSphere.Kinematics.Local.Parameters( "posx" ).Value;
dblX = dblX + 1.25;
oSphere.Kinematics.Local.Parameters( "posx" ).Value = dblX;
// (3) Change the value back again with the OM shortcut
dblX = oSphere.posx.Value;
dblX = dblX + 1.25;
oSphere.posx.Value = dblX;